DEFINITION MODULE DTA;

(* (C) Copyright 1987,1988 Fitted Software Tools. All rights reserved. *)


(* Get / Set DOS Disk Transfer Address *)

FROM SYSTEM IMPORT ADDRESS;


PROCEDURE GetDTA( VAR adrs :ADDRESS );
(*
    returns the current DTA at adrs.
*)

PROCEDURE SetDTA( adrs :ADDRESS );
(*
    sets DTA to adrs
*)

END DTA.